#!/usr/bin/perl -w
# 
# Task C (3 points)
# Write a program that takes two numbers as input from the user and stores them in variables.
# Assume that these are expression values of a gene under two conditions: 
# healthy and disease. 
# Calculate the expression fold change of the gene by dividing the first number with the 
# second and printing the result to the user.

#
# Get two numbers from user
print "Please give the number of expressions for the healthy gene ";
$nexpressions_health = <STDIN>;
print "Please give the number of expressions for the disease gene ";
$nexpressions_disease = <STDIN>;
# divide the first number by the second
if ($nexpressions_disease > 0) 
{print "The expression fold change is: ".($nexpressions_health/$nexpressions_disease);}
else
{print "You must give number of exprssions for disease gene greater than 0"}


